﻿Public Class FormBuscarEquipo

    Private _miCampeonato As Campeonato
    Private _resultadoBusqueda As List(Of String)
    Private _formularioDestino As String 'así se a que formulario tengo que enviar la información Modificar o Baja
    Private _idAnterior1 As Integer
    Private _idAnterior2 As Integer

    Property idAnterior1 As Integer
        Get
            Return Me._idAnterior1
        End Get
        Set(value As Integer)
            Me._idAnterior1 = value
        End Set
    End Property

    Property idAnterior2 As Integer
        Get
            Return Me._idAnterior2
        End Get
        Set(value As Integer)
            Me._idAnterior2 = value
        End Set
    End Property

    Property formularioDestino As String
        Get
            Return Me._formularioDestino
        End Get
        Set(value As String)
            Me._formularioDestino = value
        End Set
    End Property

    Private Sub FormBuscarEquipo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = FormEntrada
        Me._miCampeonato = New Campeonato()
        Me._resultadoBusqueda = New List(Of String)
        Me.ListBoxEquipos.Items.Clear()
    End Sub

    Private Sub btnBuscarEquipos_Click(sender As Object, e As EventArgs) Handles btnBuscarEquipos.Click
        Me.ListBoxEquipos.Items.Clear()
        Me._resultadoBusqueda = _miCampeonato.buscarEquipos()
    End Sub

    Private Sub ListBoxEquipos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxEquipos.SelectedIndexChanged
        Try
            Dim TodosLosDatosSeparados = New String(14) {}
            Dim indiceElementoSelecionado As Integer = ListBoxEquipos.SelectedIndex
            TodosLosDatosSeparados = CStr(_resultadoBusqueda(indiceElementoSelecionado)).Split(CChar("-"))
            Me.Close()
            If Me._formularioDestino = "FormModificarEquipo" Then
                FormModificarEquipo.tbxModNombreEquipo.Text = TodosLosDatosSeparados(0)
                FormModificarEquipo.idJugadorCapitan = CInt(TodosLosDatosSeparados(1))
                Me._idAnterior1 = CInt(TodosLosDatosSeparados(1))
                FormModificarEquipo.idJugadorNormal = CInt(TodosLosDatosSeparados(2))
                Me._idAnterior2 = CInt(TodosLosDatosSeparados(2))
                FormModificarEquipo.idEquipo = CInt(TodosLosDatosSeparados(4)) 'para la update y delete
                'vuelvo a realizar la select con jugadores para obtener los datos de los jugadores
                'reutilizo la variable _resultadoBusqueda y todos los datos separados esta vez para los jugadores
                Me._resultadoBusqueda = Me._miCampeonato.buscarJugador("")
                For Each n As String In Me._resultadoBusqueda
                    TodosLosDatosSeparados = n.Split(CChar("-"))
                    If CInt(TodosLosDatosSeparados(14)) = FormModificarEquipo.idJugadorCapitan Then 'se trata del capitán
                        FormModificarEquipo.tbxModNIF.Text = TodosLosDatosSeparados(0)
                        FormModificarEquipo.tbxModNombre.Text = TodosLosDatosSeparados(1)
                        FormModificarEquipo.tbxModApellidos.Text = TodosLosDatosSeparados(2)
                        FormModificarEquipo.tbxModFecha.Text = TodosLosDatosSeparados(3)
                        FormModificarEquipo.tbxModCalle.Text = TodosLosDatosSeparados(4)
                        FormModificarEquipo.tbxModNumero.Text = TodosLosDatosSeparados(5)
                        FormModificarEquipo.tbxModPuerta.Text = TodosLosDatosSeparados(6)
                        FormModificarEquipo.tbxModLocalidad.Text = TodosLosDatosSeparados(7)
                        FormModificarEquipo.tbxModProvincia.Text = TodosLosDatosSeparados(8)
                        FormModificarEquipo.tbxModEmail.Text = TodosLosDatosSeparados(9)
                        FormModificarEquipo.tbxModFacebook.Text = TodosLosDatosSeparados(11)
                        FormModificarEquipo.tbxModTwiter.Text = TodosLosDatosSeparados(12)
                    ElseIf CInt(TodosLosDatosSeparados(14)) = FormModificarEquipo.idJugadorNormal Then 'se traa del jugador normal
                        FormModificarEquipo.tbxModNIF2.Text = TodosLosDatosSeparados(0)
                        FormModificarEquipo.tbxModNombre2.Text = TodosLosDatosSeparados(1)
                        FormModificarEquipo.tbxModApellidos2.Text = TodosLosDatosSeparados(2)
                        FormModificarEquipo.tbxModFecha2.Text = TodosLosDatosSeparados(3)
                        FormModificarEquipo.tbxModCalle2.Text = TodosLosDatosSeparados(4)
                        FormModificarEquipo.tbxModNumero2.Text = TodosLosDatosSeparados(5)
                        FormModificarEquipo.tbxModPuerta2.Text = TodosLosDatosSeparados(6)
                        FormModificarEquipo.tbxModLocalidad2.Text = TodosLosDatosSeparados(7)
                        FormModificarEquipo.tbxModProvincia2.Text = TodosLosDatosSeparados(8)
                        FormModificarEquipo.tbxModEmail2.Text = TodosLosDatosSeparados(9)
                        FormModificarEquipo.tbxModFacebook2.Text = TodosLosDatosSeparados(11)
                        FormModificarEquipo.tbxModTwiter2.Text = TodosLosDatosSeparados(12)
                    End If
                Next
            ElseIf Me._formularioDestino = "FormBajaEquipo" Then
                FormBajaEquipo.tbxBajaNombreEquipo.Text = TodosLosDatosSeparados(0)
                FormBajaEquipo.idJugadorCapitan = CInt(TodosLosDatosSeparados(1))
                FormBajaEquipo.idJugadorNormal = CInt(TodosLosDatosSeparados(2))
                FormBajaEquipo.idEquipo = CInt(TodosLosDatosSeparados(4)) 'para la update y delete

                'vuelvo a realizar la select con jugadores para obtener los datos de los jugadores
                'reutilizo la variable _resultadoBusqueda y todos los datos separados esta vez para los jugadores
                Me._resultadoBusqueda = Me._miCampeonato.buscarJugador("")
                For Each n As String In Me._resultadoBusqueda
                    TodosLosDatosSeparados = n.Split(CChar("-"))
                    'se trata del capitan
                    ' If CInt(TodosLosDatosSeparados(14)) = FormBajaEquipo.idJugadorCapitan Then
                    FormBajaEquipo.tbxBajaNIF.Text = TodosLosDatosSeparados(0)
                    FormBajaEquipo.tbxBajaNombre.Text = TodosLosDatosSeparados(1)
                    FormBajaEquipo.tbxBajaApellidos.Text = TodosLosDatosSeparados(2)
                    FormBajaEquipo.tbxBajaFecha.Text = TodosLosDatosSeparados(3)
                    FormBajaEquipo.tbxBajaCalle.Text = TodosLosDatosSeparados(4)
                    FormBajaEquipo.tbxBajaNumero.Text = TodosLosDatosSeparados(5)
                    FormBajaEquipo.tbxBajaPuerta.Text = TodosLosDatosSeparados(6)
                    FormBajaEquipo.tbxBajaLocalidad.Text = TodosLosDatosSeparados(7)
                    FormBajaEquipo.tbxBajaProvincia.Text = TodosLosDatosSeparados(8)
                    FormBajaEquipo.tbxBajaEmail.Text = TodosLosDatosSeparados(9)
                    FormBajaEquipo.tbxBajaFacebook.Text = TodosLosDatosSeparados(11)
                    FormBajaEquipo.tbxBajaTwiter.Text = TodosLosDatosSeparados(12)
                    'se traa del jugador normal
                    ' ElseIf CInt(TodosLosDatosSeparados(14)) = FormBajaEquipo.idJugadorNormal Then
                    FormBajaEquipo.tbxBajaNIF2.Text = TodosLosDatosSeparados(0)
                    FormBajaEquipo.tbxBajaNombre2.Text = TodosLosDatosSeparados(1)
                    FormBajaEquipo.tbxBajaApellidos2.Text = TodosLosDatosSeparados(2)
                    FormBajaEquipo.tbxBajaFecha2.Text = TodosLosDatosSeparados(3)
                    FormBajaEquipo.tbxBajaCalle2.Text = TodosLosDatosSeparados(4)
                    FormBajaEquipo.tbxBajaNumero2.Text = TodosLosDatosSeparados(5)
                    FormBajaEquipo.tbxBajaPuerta2.Text = TodosLosDatosSeparados(6)
                    FormBajaEquipo.tbxBajaLocalidad2.Text = TodosLosDatosSeparados(7)
                    FormBajaEquipo.tbxBajaProvincia2.Text = TodosLosDatosSeparados(8)
                    FormBajaEquipo.tbxBajaEmail2.Text = TodosLosDatosSeparados(9)
                    FormBajaEquipo.tbxBajaFacebook2.Text = TodosLosDatosSeparados(11)
                    FormBajaEquipo.tbxBajaTwiter2.Text = TodosLosDatosSeparados(12)
                Next
            End If
        Catch ex As Exception
        End Try

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class